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         This examination is 3 hours in length. There are 9 questions. The marking weight of each
         is given in square brackets below. No single question is worth a large part of the total
         mark - if you are having problems with one, move on to another. Write your answers in
         the spaces provided. Good luck.
         
         
         1. [10] Define the following terms in their context in the course:
         
         
          boolean:
          
          
          
          
          
          algorithm:
          
          
          
          
          
          
          program:
          
          
          
          
          
          
          suffix polish notation:
          
          
          
          
          
          
          syntax:

         
         2. [12] Consider the following Pascal definitions.
         
         
              type
                 complex = record
                 x,i: real;
                 end;
                 complexPointer = ^complexNode
                 complexNode = record
                 complex: complex;
                 next: complexPointer;
                 end;
                 var
                 a, b: complex;
                 top, bottom: complexPointer;
                 c: complexNode;
                 i, j: integer;
                 p, q: real;
                 
    Which of the following Pascal fragments are valid? Explain your reasoning.
         a) a := nil;
         
         
         
         
             b) new(c);
             
             
             
             
             c) a^.i := p;
             
             
             
             
             d) box = 5;
             
             
             
             
              e) if top = bottom^.next
         
         
         
         
              f) if top = nil

         
      3. [12] Complete the function D3Avg that is to find the average of the elements of its
         argument. Note: arr will be passed to the function already full of values. It is only
         necessary to calculate its average.
         
         
           function D3Avg (arr:array [1..7,1..24,1..60j of real):real;

         
      4. [10] One of your assignments was to compare the efficiency of three sort algorithms.
         a) By checking the appropriate column, describe the efficiency of each algorithm.
                        O(n) O(n log n)     O(n2)
           selection sort
           merge sort
           radix sort
           b) Given the following function,
         
         
           function sq (n:integer):integer
           var i,j,s : integer;
           begin
         
              s := O;
         
              for i := 1 to n do
                for j := 1 to n do
                     s := s + l;
              sq := s;
           end;
         
         
           How many times is the highlighted statement (s := s + 1) executed for each of the
           following calls?
           sq (2)
           
           
           
            sq (5)
         
         
         
            sq (10)
         
         
         
           In terms of the input parameter, n, how many times is the statement (s := s + 1) executed?
           
           
           
           Using the big-oh notation (as in part a), what is the worst-case efficiency of this function?

         
      5 . [12] Trace the following code to determine its output. Remember that divis integer division;
         (6 div 2 = 3, 7 div 2 = 3, 8 div 2 = 4, etc.).
         
         
      var  p,d,q : integer;
           h : real;
           b : boolean;
           begin
           p := 7;
           d := 2;
           h := p / 2;
           b := true;
           while b and (d < h) do begin
             q := p div d;
             if p = q * d then b := false;
             d := d + 1
           end;
           writeln(p,d,h,b,q)
           end.

         
         6. [10] Determine the output of the following program. (Hint: there are exactly five lines output).
         
         
          program scope;
          var  c: integer;
          a : real;
          
          function f(a:integer;b:real):real;
          begin
          writeln('c=',c,'  a=',a);
          f := a + b
          end; {of f}
          
       procedure p (var d:real);
          var c:integer;
          
             procedure subp (e:integer;var g:real);
             begin
               writeln('c=',c,'  g=',g);
               g := f(e,g)
             end; {of subp}
             
             begin
               c := l; 
               subp(c,d);
               writeln('c=',c,'  d=',d);
             end; {of p}
             
       begin
          c := 5;
          a := 3;
          writeln('c=',c,'  a=',a);
          p(a)i
          writeln('c=',c,l  a=',a);
          end.

         
      7. [10] Given the following procedure, validate, determine the output of each call below.
         (hint: there is only one line of output in each case).
         
         
           procedure validate (acctno:integer);
           begin
             if acctno > 125 then
               if acctno < 175 then
                 writeln ('account number is okay')
               else
                 if acctno < 300 then
                   if acctno > 250 then
                     writeln ('account number is okay')
                   else writeln ('account number is bad')
                 else
                   if acctno > 425 then
                     writeln ('account number is bad')
                   else
                     if acctno < 400 then
                       writeln ('account number is bad')
                     else writeln ('account number is okay')
             else writeln ('account number is bad')
           end;
           
           a) what is the output of validate(130)?
           
           
           
           
           b) what is the output of validate(195)?
           
           
           
           
           c) what is the output of validate(430)?
           
           
           
           
           d) what is the output of validate(275)?
           
           
           
           
           e) whatis theoutputof validate(325)?

         
      8. [12] The following expressions are syntactically correct, but may violate the type rules of
         Turbo Pascal. If the expression is invalid, state why. If it is valid, state the value of the
         variable assigned to after the statement is evaluated. For all expressions, the variables are
         declared as:
         
         
      var  i,j : integer;
           q,r : real;
           s,t : string;
           c : char;
           a,b : boolean;
           
           
           Before each expression is evaluated the value of each variable is reset to i:=1; j:=2;
           q:=3.0; r:=4.0; s:='The'; t:='seus'; c:='a'; a:=true; b:=false;
           a) r := i div j;
           
           
           
           
           b) j := j / i * r;
           
           
           
           
           c) s := s + t;
           
           
           
           
           d) a := a or b and (s[1] = c);
           
           
           
           
           e) b := (i <> j) and a or b;
           
           
           
           
           f) i := q + r * j;

         
      9. [12] Given the following stack type and predefined functions and procedures to perforrn the
         usual stack operations:

         

         

           type stackType = array [ 1 . . 100 ] of string;

           procedure stackInitia1ize (stk: stackType)
           procedure stackPush (stk: stackType; str: string
           procedure stackPop ( stk: stackType; str: string
           function stackEmpty (stk: stackType) :boolean
           procedure stackTopVa1 (stk: stackType; str: string)

           and also given a predefined procedure getword as below:

           procedure getword (str:string; var first, rest:string);

           

           

           get wo rd is defined to return the first word of s t r in f i r st, and the remainder of s t r in

           rest; Forexample,getword('this is it', f, r) wouldreturn 'this' infand
           ' is it ' in r. getword ( ' is it ', f, r) returns ' is ' in f and ' it ' in r, and finally
           getword ( ' it ', f, r) returns ' it ' in f and ' ' (the empty string) in r.

           

           

           You are to complete the function reverse, to reverse the words in a sentence. You need not

           input or output the sentence, the sentence to be reversed is provided as an argument and its
           reverse should be returned as the result of the function. E.g. reverse ( ' this is it
           returns ' it is this ' . (Hint: strings can be concatenated using +; ' this ' + ' that '
           evaluates to ' thisthat ' ). Remember, you may use all the given functions without
           worrying about their definitions. There is only one function, reverse, that you must define.

           function reverse (instr:string) :string;

           